home *** CD-ROM | disk | FTP | other *** search
/ Comix Games / Comix Games.iso / waldopc / install.exe / _SETUP.1 / WALDOPC.EXE / WALDOPC.DXR / 00316.ls < prev    next >
Encoding:
Text File  |  1996-06-11  |  1.0 KB  |  45 lines
  1. on startMovie
  2.   global rwObj
  3.   if the machineType <> 256 then
  4.     set the colorDepth to 256
  5.     if objectp(rwObj) then
  6.       rwObj(mdispose)
  7.     end if
  8.     makeObjIfNeeded()
  9.     rwObj(mPatToWindow, -5)
  10.   end if
  11. end
  12.  
  13. on stopMovie
  14.   global rwObj
  15.   if the machineType <> 256 then
  16.     if objectp(rwObj) then
  17.       rwObj(mdispose)
  18.     end if
  19.     closeXLib()
  20.   end if
  21. end
  22.  
  23. on makeObjIfNeeded
  24.   global rwObj
  25.   if not objectp(rwObj) then
  26.     set rwObj to RearWindow(mnew, "M")
  27.     if value(rwObj) < 0 then
  28.       alert("System error" && rwObj && "trying to create the RearWindow object in RAM (multiple-monitor config).")
  29.       stopMovie()
  30.       exit
  31.     end if
  32.     if the freeBlock < rwObj(mGetMemoryNeeded) then
  33.       if objectp(rwObj) then
  34.         rwObj(mdispose)
  35.         set rwObj to RearWindow(mnew, "S")
  36.       end if
  37.       if value(rwObj) < 0 then
  38.         alert("System error" && rwObj && "trying to create the RearWindow object in RAM (single-monitor config).")
  39.         stopMovie()
  40.         exit
  41.       end if
  42.     end if
  43.   end if
  44. end
  45.